home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr28 / logcopy.zip / SETLINK.ASM < prev    next >
Assembly Source File  |  1993-03-26  |  3KB  |  93 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;                                                ;
  3. ;    written by Keith P. Robison              ;
  4. ;                                                ;
  5. ;     Copyright Syracuse University 1988         ;
  6. ;                                                ;
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8.  
  9.  
  10.     name     SetcopyPascalLinkInterface
  11.  
  12. CGroup    group    Code
  13.  
  14.     assume    cs: CGroup,  ds: nothing
  15.  
  16. Code    segment public 'CODE'
  17.  
  18.  
  19.  
  20.         public     _net_directory_request
  21.         public     _net_semaphore_request
  22. ;
  23. ;    define the network DOS function codes
  24. ;
  25. directory_request_code         equ    226
  26. ;-----------------------------------------------------------------------
  27.  
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. ;                                                ;
  30. ;   directory_request : dir  request function    ;
  31. ;          by Keith Robison                      ;
  32. ;                                                ;
  33. ; procedure net_directory_request [c,varying]    ;
  34. ;                                                ;
  35. ;                                                ;
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  37.  
  38. _net_directory_request    proc    far
  39.     mov    ah,directory_request_code
  40.     push    bp
  41.         mov    bp,sp
  42.         push    es
  43.         push    ds
  44.         push    ax
  45.         mov    di,[bp + 6]
  46.         mov    ax,[bp + 8]
  47.         mov    es,ax
  48.         mov    si,[bp + 0AH]
  49.         mov    ax,[bp + 0CH]
  50.         mov    ds,ax
  51.         pop    ax
  52.         int    21h
  53.         mov    ah,0
  54.         pop    ds
  55.         pop     es
  56.         pop    bp
  57.         ret
  58. _net_directory_request    endp
  59.  
  60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  61. ;        semaphore request     0C5H       ;
  62. ; al= 0  open a semaphore                        ;
  63. ;     1  examine a semaphore                     ;
  64. ;     2  wait for a semaphore                    ;
  65. ;     3  Signal a semaphore                      ;
  66. ;     4  close a semaphore                       ;
  67. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68.  
  69. _net_semaphore_request    proc    far    ; selector,bx,cx,dx
  70.     push    bp
  71.         mov    bp,sp
  72.         mov     ax,[bp+6]    ; selector  0-4
  73.     mov    ah,0C5H        ; semaphore request code
  74.         mov    dx,[bp+0CH]
  75.         mov    di,[bp+0AH]
  76.         mov    cx,[di];
  77.         push    di
  78.         int    21H
  79.         pop    di
  80.         mov    [di],cx
  81.         mov    di,[bp+8]
  82.         mov    [di],bx
  83.         mov    di,[bp+0CH]
  84.         mov    [di],dx
  85.         mov    ah,0
  86.         pop    bp
  87.         ret
  88. _net_semaphore_request    endp
  89.  
  90. Code    ends
  91.  
  92.     end
  93.